%duurste bus van het netwerk bepalen
function string_duurste_bus = duurste_bus(array_bus)
% belastingsbussen_14;
load belastingsbussen;
sectoren_namen;
load problemen
%kosten_sector = zeros(aantal_sectoren,1);
if isempty(array_bus)==1
    
kost_bus = zeros(aantal_belastingsbussen,1);

for i = 1:aantal_belastingsbussen%belastingsbussen';
    
    busnummerstr = num2str(belastingsbussen(i,1));
    if exist(['problemen_bus_',busnummerstr])==1
    w = ['problemen_bus_',busnummerstr];
    temp = eval(w);
%     kosten_sector = zeros(size(temp,1),1);
    kosten_sector = 1/aantal_sectoren*sum(temp(:,8:aantal_sectoren+7),2);
    kost_bus(i,1) = sum(kosten_sector);
    end
end

elseif isempty(array_bus)==0
    
    for ii = array_bus';
        index = find(belastingsbussen==ii);
        belastingsbussen(index,:) = [];
    end
    aantal_belastingsbussen = size(belastingsbussen,1);
    kost_bus = zeros(aantal_belastingsbussen,1);

    for i = 1:aantal_belastingsbussen%belastingsbussen';

        busnummerstr = num2str(belastingsbussen(i,1));
        w = ['problemen_bus_',busnummerstr];
        temp = eval(w);
        kosten_sector = 1/aantal_sectoren*sum(temp(:,8:aantal_sectoren+7),2);
        kost_bus(i,1) = sum(kosten_sector);

    end

end

if max(kost_bus)==0
    string_duurste_bus = [];
else
[duurste_kost index_duurste_bus] = max(kost_bus);

busnummerstr = num2str(belastingsbussen(index_duurste_bus,1));
string_duurste_bus = ['problemen_bus_',busnummerstr];
end
save belastingsbussen belastingsbussen aantal_belastingsbussen -append;